00100		DIMENSION MA(1),II(1000),MB(1),JJ(1000),MC(1),KK(1000),
00200		1 MD(1),LL(1000)
00300	1	TYPE 5
00400	5	FORMAT(' TYPE NAME OF PICTURE.'/)
00500		ACCEPT 6,NAM
00600	6	FORMAT(A5)
00700		IF(.NOT.LOOKD(NAM))GO TO 1
00800		CALL IFILE(1,NAM)
00900		READ(1)NP
01000		READ(1)L,(II(I),I=1,L)
01100		IF(NP.GT.1)READ(1)L,(JJ(I),I=1,L)
01200		IF(NP.GT.2)READ(1)L,(KK(I),I=1,L)
01300		IF(NP.GT.3)READ(1)L,(LL(I),I=1,L)
01400	10	TYPE 11,NP
01500	11	FORMAT(1XI1,' POGS'/' TYPE POG NUMBER.'/)
01600		ACCEPT 3,N
01700	3	FORMAT(I1)
01800		IF(N.LT.1.OR.N.GT.NP)GO TO 10
01900		IF(N.GT.1)GO TO 13
02000		MA(1)=II(2)+2
02100		CALL SAVB(MA)
02200		GO TO 22
02300	13	IF(N.GT.2)GO TO 14
02400		MB(1)=JJ(2)+2
02500		CALL SAVB(MB)
02600		GO TO 22
02700	14	IF(N.GT.3)GO TO 15
02800		MC(1)=KK(2)+2
02900		CALL SAVB(MC)
03000		GO TO 22
03100	15	MD(1)=LL(2)+2
03200		CALL SAVB(MD)
03300	22	TYPE 23,N
03400	23	FORMAT(' POG ',I1,' IS IN PLOTZ.DAT.'/)
03500		END